home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue29 / web / FSTATE1.DFM / FSTATE1.txt
Encoding:
Text File  |  1997-08-21  |  1002 b   |  34 lines
  1. object WebModule1: TWebModule1
  2.   Actions = <
  3.     item
  4.       Default = True
  5.       MethodType = mtGet
  6.       Name = 'WebActionItem1'
  7.       OnAction = WebModule1WebActionItem1Action
  8.     end>
  9.   Left = 200
  10.   Top = 108
  11.   Height = 150
  12.   Width = 215
  13.   object PageProducer1: TPageProducer
  14.     HTMLDoc.Strings = (
  15.       
  16.         '    <HTML><HEAD><TITLE>Maintaining state using GET request metho' +
  17.         'd</TITLE></HEAD>'
  18.       '    <BODY><H2>Thanks for your details <#fullname></H2>'
  19.       
  20.         '    <H3>Would you like to receive marketing information from Acm' +
  21.         'e Consulants Ltd?<BR><BR>'
  22.       
  23.         '    <A HREF="http://localhost/scripts/thankyou.dll?fullname=<#en' +
  24.         'cfullname>&include=Yes">Yes I certainly would</A><BR>'
  25.       
  26.         '    <A HREF="http://localhost/scripts/thankyou.dll?fullname=<#en' +
  27.         'cfullname>&include=No">No I definitely wouldn'#39't</A></H3>'
  28.       '    </BODY></HTML>')
  29.     OnHTMLTag = PageProducer1HTMLTag
  30.     Left = 40
  31.     Top = 16
  32.   end
  33. end
  34.